home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / arcer / xdm20.lha / xdm / cli / DMx_CLI next >
AmigaDOS Script File  |  1995-09-29  |  3KB  |  130 lines
  1. .key DMSFILE/A,XDMFILE/A,TEMPDRIVE/A,TRACKS/K,START/K,END/K,MODE/K
  2. .bra {
  3. .ket }
  4. .def TRACKS "dos"
  5.  
  6. ; $VER: DMx CLI v1.0 (29.9.95)
  7.  
  8. Cd >ENV:dmxorigcd
  9. Set dmxcd "$dmxorigcd"
  10. Set dmxdmsfile "{dmsfile}"
  11. Echo >ENV:dmxxdmfile "$dmxorigcd" NOLINE
  12. Echo >>ENV:dmxxdmfile "{xdmfile}" NOLINE
  13. Set dmxdrive {tempdrive}
  14. Set dmxtracks {tracks}
  15. Set dmxmode {mode}
  16. Set dmxstarttrack {start}
  17. Set dmxendtrack {end}
  18.  
  19. If NOT EXISTS C:DMS
  20.     Set dmxerror "dms"
  21.     Skip errorout
  22. EndIf
  23.  
  24. If NOT EXISTS C:xDM_CLI
  25.     Set dmxerror "xdm"
  26.     Skip errorout
  27. EndIf
  28.  
  29. LAB begin
  30.  
  31. If $dmxmode EQ "lowmem"
  32.     If NOT EXISTS ENV:xdm
  33.         Set dmxerror "lowmem"
  34.         Skip errorout
  35.     EndIf
  36.     If NOT EXISTS ENV:xdmlzx
  37.         Set dmxerror "lowmem"
  38.         Skip errorout
  39.     EndIf
  40.     Set dmxmode "lowmem"
  41. EndIf
  42.  
  43. If $dmxdrive EQ "RAD:"
  44.     Assign >NIL: RAD: EXISTS
  45.     If WARN
  46.         Echo "Mounting RAD:"
  47.         Mount >NIL: RAD:
  48.     EndIf
  49. EndIf
  50.  
  51. DMS WRITE $dmxdmsfile TO $dmxdrive NOTEXT
  52.  
  53. If $dmxtracks EQ "all"
  54.     If $dmxmode EQ "lowmem"
  55.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS all MODE lowmem
  56.     Else
  57.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS all
  58.     EndIf
  59. EndIf
  60.  
  61. If $dmxtracks EQ "dos"
  62.     If $dmxmode EQ "lowmem"
  63.         xDM_CLI A $dmxdrive $dmxxdmfile MODE lowmem
  64.     Else
  65.         xDM_CLI A $dmxdrive $dmxxdmfile
  66.     EndIf
  67. EndIf
  68.  
  69. If $dmxtracks EQ "some"
  70.     If $dmxmode EQ "lowmem"
  71.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS some START $dmxstarttrack END $dmxendtrack MODE lowmem
  72.     Else
  73.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS some START $dmxstarttrack END $dmxendtrack
  74.     EndIf
  75. EndIf
  76.  
  77. Skip getout
  78.  
  79. LAB errorout
  80.  
  81. If $dmxerror EQ "dms"
  82.     Echo "Sorry, but I cannot find *"DMS*" in your C: directory."
  83.     Echo "Please install DMx or *"DMS*" again."
  84. EndIf
  85.  
  86. If $dmxerror EQ "xdm"
  87.     Echo "Sorry, but I cannot find *"xDM_CLI*" in your C: directory."
  88.     Echo "Please install DMx or *"xDM*" again."
  89. EndIf
  90.  
  91. If $dmxerror EQ "lowmem"
  92.     Echo "*nSorry, you have selected a mode which suggests you have a low memory"
  93.     Echo "situation.  However, you do not have the low-memory variable *"xdmlzx*" set"
  94.     Echo "in your ENV: or ENVARC: directories.  Please refer to the documentation or"
  95.     Echo "re-install xDM, this time setting the *"xdmlzx*" low-memory variable to a"
  96.     Echo "location somewhere on a harddrive partition with at least 1mb free.*n"
  97. EndIf
  98.  
  99. Cd ENV:
  100. Delete >NIL: dmxorigcd dmxdmsfilesize dmxxdmfilesize dmxsaving
  101. Cd "$dmxcd"
  102. UnSet dmxcd
  103. UnSet dmxdmsfile
  104. UnSet dmxxdmfile
  105. UnSet dmxdrive
  106. UnSet dmxtracks
  107. UnSet dmxmode
  108. UnSet dmxstarttrack
  109. UnSet dmxendtrack
  110. UnSet dmxerror
  111. UnSet dmxmode
  112. UnSet dmxxdmfile2
  113. FailAt 21
  114. Quit 20
  115.  
  116. LAB getout
  117. Cd ENV:
  118. Delete >NIL: dmxorigcd
  119. Cd "$dmxcd"
  120. UnSet dmxcd
  121. UnSet dmxdmsfile
  122. UnSet dmxxdmfile
  123. UnSet dmxdrive
  124. UnSet dmxtracks
  125. UnSet dmxmode
  126. UnSet dmxstarttrack
  127. UnSet dmxendtrack
  128. UnSet dmxerror
  129. UnSet dmxmode
  130.